(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     15041,        420]
NotebookOptionsPosition[     12680,        370]
NotebookOutlinePosition[     13102,        386]
CellTagsIndexPosition[     13059,        383]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"2", "^", "4"}]], "Input",
 CellChangeTimes->{{3.867623114185096*^9, 3.867623116054268*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"dcfcafa3-84cb-4888-a52b-90cfd4894c80"],

Cell[BoxData["16"], "Output",
 CellChangeTimes->{3.867623116750081*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"375f4a28-e84c-4f45-8657-5a1f40cd1e05"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {"\[Placeholder]"},
   {
    RowBox[{"2", "^", "10"}]}
  }]], "Input",
 CellChangeTimes->{{3.8676232694263983`*^9, 3.867623273416319*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"89e40975-35b3-4e17-b0ec-427afbd033ea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "\[Placeholder]", "}"}], ",", 
   RowBox[{"{", "1024", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.867623273978911*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"693406f6-4c12-4aea-a4a2-5f89961adb67"]
}, {2}]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"2", "^", "12"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{
      RowBox[{"-", "2"}], "Pi"}], ",", " ", 
     RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.867623154485362*^9, 3.867623156893323*^9}, {
  3.867623298444672*^9, 
  3.867623320044541*^9}},ExpressionUUID->"bbad7e38-b57e-4841-92ee-\
aaa8f1add13d"],

Cell[BoxData["4096"], "Output",
 CellChangeTimes->{3.867623157456541*^9, 3.867623300397176*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"c76523cd-c039-4047-931b-2adc07e41800"],

Cell[BoxData[
 GraphicsBox[{{}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "Arial"},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {0., 0.}}, {{-6.283185307179586, 
    6.283185307179586}, {0., 0.}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.867623157456541*^9, 3.8676233004417887`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"0fa7f6d4-ae89-4b34-95d3-524024ba27c7"]
}, {3}]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Cox", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{
      RowBox[{"-", "2"}], "Pi"}], ",", " ", 
     RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8676231685775347`*^9, 3.867623183982438*^9}, {
  3.867623237495699*^9, 3.867623238557456*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"ab77ab5a-5999-4df7-8a84-7fc311a30f6e"],

Cell[BoxData[
 GraphicsBox[{{}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "Arial"},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {0., 0.}}, {{-6.283185307179586, 
    6.283185307179586}, {0., 0.}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.867623185311269*^9, 3.8676232408518877`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"dff4be9f-934a-4601-94cd-b3bdea61a236"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"x", ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "100"}], ",", " ", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8676233878875837`*^9, 3.867623401865542*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"fca22a74-dffe-4089-bd04-8126ff3aa85c"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxF1OlPEnAcgHE0S00zZ0yF5hrLzBVuZsmQHCTqkMQDVDKnhoqGpjGPmc0r
GHMO3dThrGY0Krxm2TXnXE4NXW8UZKJUankkLGtDIkkMj2rL7+/Fs89/8BCy
hZxcRwwGE/e3f6ZnLZv29lJH913Ep1u8tpHZM3rrKRtSwJjcjjUjS4MGDt9b
Qkq3GgOC3yIHW8iZPDHSW9WkHnVCMqgfa65tcEFc/Kaz268UMLBMNPR6Oxns
6++MpJiSwFmp4rH6BwcsrQydoS6xwXgx6dwzXSLYGuY7mfgqAbzdsTXnKIsD
FWTJfc3dWJBuM/a1djLBaVNtvncDA1S6q3QvZdFgThbli0tJJChfkTLT0iLA
896uI1I1FXSZFYR+aKGAvBW829WHJLA1I+wsmxsCVuV4WiqjiKC+m8MaKvQH
NbL5cv17H/AnrZDpvLA3sq+Z1lyEEezS9q2rKF70r/a9tK9Yhz82fMIfdDmq
JNh7iCCblVdwui4EbKd3r/oJSaDrRDVW/pQCbjg5GL4+ooJWy9oBRUQEKCb6
mZvSI0ENtYuYlxQNEvH2sTtlDDBG09ErKmaCaykV4fX8WPBBJzZQJ4oDPbTO
fKfKBDAmK3snfCoRZI0ny3/Ps8HnspLcXj0HbGdY02qMSaDx+pOKqNVkcKPY
UHDkUwrYwGuU2r5xQdGbzGm98Qro+05bfvE78oWWflyxjvxsCODn25DhnutW
u2sqaOPX4ghByJseCt6NUuQhnNdB7S2k/KSk50IVcpIssOxIkGdygiXNbUjD
wGhX/yCyShXCwg8jsWqluUaFpK/Uh8VMIBXu7Im5BSTZZ0xIW0ZOEUKxSgNy
l4TLKDIh2yIaHKYtyCDWTgdpEznOFV5utyP/fwv8Azt/WY8=
       "]]},
     Annotation[#, "Charting`Private`Tag$17651#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "Arial"},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-100, 100}, {-99.99999591836735, 99.99999591836735}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.867623402850909*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"bcf9cfe1-a85b-47fa-a560-f29c1d94d4d2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cancel", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"Cos", "[", "x", "]"}], "^", "2"}]}], ")"}]}], ",", " ", 
   RowBox[{"Trig", "->", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.867623479956366*^9, 3.867623519104734*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"bb3d75b3-3193-45af-8339-b47f091800a0"],

Cell[BoxData[
 RowBox[{"Csc", "[", "x", "]"}]], "Output",
 CellChangeTimes->{{3.867623500045712*^9, 3.8676235209031878`*^9}},
 CellLabel->"Out[11]=",ExpressionUUID->"537fc209-f72c-4742-813b-b8daaad871bd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "+", 
    RowBox[{"Sin", "[", 
     RowBox[{"2", "x"}], "]"}]}], ",", " ", 
   RowBox[{"Trig", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.867623546498481*^9, 3.867623568765173*^9}, {
  3.867623762636945*^9, 3.867623799336972*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"6e88c6df-40e3-4537-9f6d-75b73e894d26"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Sin", "[", "x", "]"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"Cos", "[", "x", "]"}], " ", 
   RowBox[{"Sin", "[", "x", "]"}]}]}]], "Output",
 CellChangeTimes->{{3.867623782520032*^9, 3.867623800351712*^9}},
 CellLabel->"Out[13]=",ExpressionUUID->"ff77197e-edf5-491e-bfed-c35c1c478ff8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ExpToTrig", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"-", "1"}], ")"}], "^", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.8676239139811296`*^9, 3.8676239264318523`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"6d568947-a0bb-4a53-bf98-63b473e0ec65"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cos", "[", 
   RowBox[{"\[Pi]", " ", "x"}], "]"}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"\[Pi]", " ", "x"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.867623942330533*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"edae592b-96b4-47ca-b262-aed877c2a73d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"n", ",", " ", 
      RowBox[{"TrigExpand", "[", 
       RowBox[{"Sin", "[", "nx", "]"}], "]"}], ",", " ", 
      RowBox[{"TrigExpand", "[", 
       RowBox[{"Cos", "[", "nx", "]"}], "]"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", " ", "2", ",", " ", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.867623950795308*^9, {3.867624009554038*^9, 3.867624073868593*^9}, {
   3.8676241796478662`*^9, 3.867624181646225*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"7770382e-2fcd-49e7-93dc-d7ad80ff63b5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"Sin", "[", "nx", "]"}], ",", 
     RowBox[{"Cos", "[", "nx", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", 
     RowBox[{"Sin", "[", "nx", "]"}], ",", 
     RowBox[{"Cos", "[", "nx", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"Sin", "[", "nx", "]"}], ",", 
     RowBox[{"Cos", "[", "nx", "]"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8676240760767727`*^9, 3.867624183826138*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"22dbac38-51d1-41bf-bbaa-934f4b1fdfc8"]
}, Open  ]]
},
WindowSize->{1920, 1027},
WindowMargins->{{1872, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (2019\:5e744\:67088\:65e5)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 193, 3, 41, "Input",ExpressionUUID->"dcfcafa3-84cb-4888-a52b-90cfd4894c80"],
Cell[776, 27, 149, 2, 41, "Output",ExpressionUUID->"375f4a28-e84c-4f45-8657-5a1f40cd1e05"]
}, Open  ]],
Cell[CellGroupData[{
Cell[962, 34, 242, 6, 56, "Input",ExpressionUUID->"89e40975-35b3-4e17-b0ec-427afbd033ea"],
Cell[1207, 42, 257, 6, 41, "Output",ExpressionUUID->"693406f6-4c12-4aea-a4a2-5f89961adb67"]
}, {2}]],
Cell[CellGroupData[{
Cell[1498, 53, 479, 13, 76, "Input",ExpressionUUID->"bbad7e38-b57e-4841-92ee-aaa8f1add13d"],
Cell[1980, 68, 173, 2, 41, "Output",ExpressionUUID->"c76523cd-c039-4047-931b-2adc07e41800"],
Cell[2156, 72, 1748, 47, 247, "Output",ExpressionUUID->"0fa7f6d4-ae89-4b34-95d3-524024ba27c7"]
}, {3}]],
Cell[CellGroupData[{
Cell[3938, 124, 446, 11, 55, "Input",ExpressionUUID->"ab77ab5a-5999-4df7-8a84-7fc311a30f6e"],
Cell[4387, 137, 1748, 47, 247, "Output",ExpressionUUID->"dff4be9f-934a-4601-94cd-b3bdea61a236"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6172, 189, 325, 7, 55, "Input",ExpressionUUID->"fca22a74-dffe-4089-bd04-8126ff3aa85c"],
Cell[6500, 198, 2788, 65, 244, "Output",ExpressionUUID->"bcf9cfe1-a85b-47fa-a560-f29c1d94d4d2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9325, 268, 432, 11, 55, "Input",ExpressionUUID->"bb3d75b3-3193-45af-8339-b47f091800a0"],
Cell[9760, 281, 204, 3, 41, "Output",ExpressionUUID->"537fc209-f72c-4742-813b-b8daaad871bd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10001, 289, 426, 10, 55, "Input",ExpressionUUID->"6e88c6df-40e3-4537-9f6d-75b73e894d26"],
Cell[10430, 301, 320, 7, 41, "Output",ExpressionUUID->"ff77197e-edf5-491e-bfed-c35c1c478ff8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10787, 313, 278, 6, 55, "Input",ExpressionUUID->"6d568947-a0bb-4a53-bf98-63b473e0ec65"],
Cell[11068, 321, 324, 8, 41, "Output",ExpressionUUID->"edae592b-96b4-47ca-b262-aed877c2a73d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11429, 334, 623, 15, 55, "Input",ExpressionUUID->"7770382e-2fcd-49e7-93dc-d7ad80ff63b5"],
Cell[12055, 351, 609, 16, 101, "Output",ExpressionUUID->"22dbac38-51d1-41bf-bbaa-934f4b1fdfc8"]
}, Open  ]]
}
]
*)

